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Field Support Routines 16-Sep-1984 00:42:05 Ax-11 Bliss-32 V4.0-74 Page Aj 
2 ety 7 90:28:03 NML .SRC WARFTELDS 3004 . (1) 

ZTITLE ° Field Support Routines’ 

MODULE NMAFIELDS ( 

LANGUAGE (BLISS$32) 

ADDRESSING_MODE (NONEXTERNAL=LONG_RELATIVE), 

ADDRESSING re (EXTERNAL=LONG_RECATIVE), 

IDENT = 'v04-000' 
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BEGIN 
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'® * 
's COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
M ALL RIGHTS RESERVED. * 
' 4 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
‘ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
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'‘® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
° i eeeeeeneneeeeeeeeneneeneneeeneeeeeereeessnntenennnenenennnneneeeeeeeeeness 
0 
0 'e+ 
! : FACILITY: Network Management Layer (NMA) 
ABSTRACT: 
04 These routines provide support for maintaining permanent 
be data bases in NML and other network management layer components. 
ne ENVIRONMENT: VAX/VMS Operating System 
oe AUTHOR: Darrell Duffy ,. CREATION DATE: 15-October-1979 


MODIFIED BY: 


V03-001 MKP0001 Kathy Perko 6~-Aug-1983 
Remove all knowledge of ney sizes from this module. 
This is necessary ecause he keys for the new node. 
database records are different than for the other files. 
Also, modify field insertion to only insert a field if 
the parameter value has changed. 
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Field by Co 
(RTN pst F 
SIZE, FIEL 
lee 


FUNCTIONAL DESCRIPTION: 


ot fe size and address of data portion of a field with a specified 
code. 


FORMAL PARAMETERS: 


RTN_DSC Address of descriptor of data portion of record 

FIECD_CODE Value of word that is the code for the field 

FIELD_SIZE Address of size cf field data to be returned. 
Returned as a longword. 

FIELD_ADR Address of longword to hold address of data. 


On input . point within the data record as 
the start of the next field to compare. 

After a call here, 

FIELD_ADR = .FIELD_ADR + .FIELD_SIZE , 

sets up for the next call here fo obtain next field. 


' 

i 

' 

{ IMPLICIT INPUTS: 
NONE 

! IMPLICIT OUTPUTS: 
NONE 

i 
5 


ROUTINE VALUE: 
COMPLETION CODES: 


NMAS_SUCCESS Field found 
NMA$_FLDNOTFND Field with specified code not found or 
no more fields in record. 


SIDE EFFECTS: 
NONE 


FIELD_CODE : WORD 
RTN_DSC : REF BLOCK (8, 1) 
FIELD (DSC_FLDS) 


! Pointer into record 
N ' End of record data 
CODE : WORD, ' Code value 
SIZE ' Size of a field 
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“RIN-DSC CDSC7S1Z] ; 


_ -PTR LSSA .END_REC 


ev eyes ie Sup ort Routines 

v04- ASSEARCHFLD Find Field by Code - NML.SRCINMAF IELDS.B32;1 (3 
23 af 5 : 
1 22 PTR = ..FIELD_ADR; ! Obtain the address of the field 
5 61 ! We add two to the descriptor address 
4 6¢ ! To skip the two byte key at the 
? e7 ! beginning of the record 
7 65 IF (.PTR LSSA (.RTN_DSC CDSC_ADR]) ) ! If its a good address, use it 
8 66 ! and Look on from there 
9 67 (.PTR GTRA (.RTN_DSC COSC AoR) + 
0 68 »RTIN_BSC COSC_S12) 
1 69 ) 
: THEN 
PTR = .RTN_DSC CDSC_ADRI; ! if its bad, use start of record 
$ END_REC = .RTN_DSC CDSC_ADR] + ! compute end of the record 
8 
9 
0 
1 
2 
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70 
a 
48 
74 
75 
76 
77 
78 
79 BEGIN 
80 CODE = . (.PTR) <0, 16, O> ; ' Look at the field code 
81 SIZE = . (.PTR) <16, 16, 0> ; ' And the size of the field 
ie IF (.CODE EQLU .FIELD_CODE)’ i If the codes match, or 
5 8 THEN 
6 84 BEGIN 
7 85 -FIELD_ADR = .PTR + 4; ! Return position of data 
8 86 FIELD SIZE = .SIZE; ! and size 
9 87 RETURN NMA$_SUCCESS ! And a warm, fuzzy code 
88 END 
1 89 ELSE s 
2 90 PTR = .PTR + .SIZE + 4 ! Otherwise, k2ep looking 
3 91 END 
$ 33 ; 
1 3e RETURN NMA$_FLDNOTFND ! A not so warm fuzzy code 
8 96 END; 
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Until there is no more data 
. Field Support Routines 
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ELD 
000 


00 .ENTRY NMASSEARCHFLD, Save R2,R3 > 0101 
02 MOVL  aFIELD_ADR, PTR : 0159 
06 MOVL RTN_DST, RO > 0165 
OA CHPL PIR, 4 (RO) ; 

Ro Bue thas Le 
1 CMPL PTR, R2 > 0167 


-PSECT SCODES,NOWRT ,2 
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; 200 13f 
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; O¢ 19 
; 20 00 
: 204 0 91 
: $e 5 
: 207 82 
> 208 0205 
; 209 020 
: Sty $508 
; 1g $508 
ae 0210 
: 2146 0211 
: 215 0 ig 
3 sig 021 
: $18 8 is 
: 219 0216 
; 220 0217 
> 221 0218 
s 2 0219 
, 2 9220 
3 224 0221 
: 225 Ogee 
; 226 02 
3: 2e7 0224 
3: 228 0225 
: 229 0226 
3; 230 0227 
> 231 0228 
: 232 0229 
3; 233 02 0 
; 234 0231 
OBE 
: $35 0234 
: 238 035 
; 239 0236 
: $29 $538 
i | BF 
; 344 $324 
; 346 6 “8 
; 3c 6 és 
: 250 § t3 
: 51 0248 
: Ze 0249 
: 5 0 
: 54 1 
: 255 3 
>: 256 025 
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INSERTFLD Insert a Field Into a Record 1 ~300n 138% 99:28:03 ENML. SRC WAAR FLbS 63904 
ZSBTTL ‘NMASINSERTFLD Insert a Field Into a Record’ 
GLOBAL ROUTINE neneen tar (BUF _SIZE, FIELD_CODE, FIELD_SIZE, 
FIELD_ADR, RTN_DSC) = 


'o4¢ 


i FUNCTIONAL DESCRIPTION: 


Insert a field into a record. ALL other fields by that code are 
removed from the record first. 


FORMAL PARAMETERS: 
UF _SIZE Maximum size of parameter buffer 


8 
FIECD_CODE alue of the word containing the code 
FIELD_SIZE Size of field to be inserte 
FIELD ADR Address of field to be inserted 
RTN_DSC Descriptor of data in buffer. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NMA$_SUCCESS 
NMA$~SUCCFLDRPL 
NMA$ ~BUF TOOSMALL 


A warm cuddly feeling 

A warm feeling with a replaced field 

Not enough space in the buffer, buffer is 

not corrupted, and the field is not inserted. 


SIDE EFFECTS: 
NONE 


BEGIN 


P 
RTN_DSC : REF BLOCK [8, 1] 
FIELD (DSC_FLDS) 


syEE00. !' Hold the success code for return 
ADR, 
END_FLD ! End of a field to replace 


'¢ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: If the contents of the field haven't changed, just return success. 
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NMAFIELDS Field Su up ort Routines 16-Sep p- 138% 9 95:03 AX-11 Oh ieee V4.0-742 
v04- NMASINSERTFLD Insert a Field Into a Record 14-Sep-1984 12:50:02 NML.SRCINMAF IELDS.B32;1 
: 7 0 2 ADR = 0; 
; 8 8 5 SUCCOD = NMASSEARCHFLD (.RTN_DSC, .FIELD_CODE, SIZE, ADR); 
: 59 2§ IF .SUCCOD AN 
; 60 0 CHSEQL (.FIELD SIZE, .FIELD_ADR, .SIZE, .ADR, 0) THEN 
3 o) p 28 “ RETURN .SUCCOB; 
3 e7 re Delete existing fields with specified code. 
; 65 $6 SUCCOD = ope bet. RTN Dads -FIELD CODE); 
> 266 026 '® END_FLD = .RTN COSC_K ! End of data in record 
; 67 0264 '® .RTN NepSe DSC_S i 3 
: 268 8 65 END_FLD = .RTN DSC COSC_ABR 25? of data in record 
; $9 9 66 END-FLD = .END-FLD + .RTN “DSe Cosc_siz 
“eee 0268 IF (.FIELD_SIZE + 4) ! Do we have enough room 
ae 0269 TR 
: ef 0270 (.BUF_SIZE = .RTN_DSC COSC_S1Z]) 
: 274 0271 N 
: $2 8 us RETURN NMA$_BUF TOOSMALL ! Nope, return error 
: e277 0274 
; 278 0275 (.END_FLD) <0, 16, O> = .FIELD CODE; ! Store control data 
> 279 0276 (.ENDTFLD) <16, 16, O> = .FIELB_SIZE; 
: 280 0277 END_FCD = .END_FLD + 4; 
: 281 0278 
; soe 0279 RTN_DSC CDSC_SI2Z]) = ! Siyst descriptor for size 
; 0280 CHSAOVE (FIELD SIZE, .FIELD_ADR, .END ey ! and copy the data itself 
; 284 0281 - .RTN_ DSC [TDSC_ADRJ; 
: 285 bees 
: 286 028 RETURN .SUCCOD ' Return the code 
3; 287 0284 
; 288 0285 1 END; 
oes 00000 -ENTRY NMASINSERTFLD, Save R2,R3,R4,R5,R6,R7 
5E 4 C One SUBL2 #4, SP 
E D4 0000 CLRL ADR 
5E 0D 00007 PUSHL 
oe AE 9F 00009 PUSHAB S72 
0 AC 0D Q000C PUSHL aaee CODE 
56 14 AC 00 Obs MOVL DSC, RS 
56 DU 1 PUSHL 
96 AF 4 F 1 CALLS a4, “MUMSSEARCHFLD 
57 9 D 1 MOVL RO. COD 
0c 5 1C BLBC SU cb 1$ 
04 AE 00 10 BC or AC D IF CMPCS SutcoD, TS @FIELD_ADR, #0, SIZE, @ADR 
rs 13 BEQL 3$ 
08 Ac oD B 1$: PUSHL FIELD_CODE 
1) PUSHL ° 
00000000vV_ EF a CALLS . NMASDELETEFLD 
7 1) OVL R SU ~ 
1 04 Ab p A MOVL  4(R6) 
0 66 3C E MOVZWL (R6), 
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NMAF IELDS Field Support Routines 16-Sep-1984 00:42: AX-11 Bliss-32 V4.0-74 P 9 
v04- NMASDELETEFLD Delete a Field From a Record 12-868: 7 90:26:05 NML.SRC NARFEELDS 03504 oe (5) 
; 290 § 1 ZSBTTL ‘NMASDELETEFLD Delete a Field From a Record’ 
: 4! } GLOBAL ROUTINE NMASDELETEFLD (RTN_DSC, FIELD_CODE) = ! 
; 38 § 1 144 
: Be + i } FUNCTIONAL DESCRIPTION: 
; 39 3 1 i Delete a field from a record. ALL other fields by that code are 
; 29 95 1! deleted as well. 
; 298 9% 1! 
H 99 95 1 ! FORMAL PARAMETERS: 
; Joo 38 1! 
3 3} 8 aoe RTN_DSC Address of descriptor of data portion of record. 
; b¢ 38 : FIECD_CODE Value of the word containing the code 
: 304 § 00 1 ! IMPLICIT INPUTS: 
: 305 0301 1! 
: 306 0 8 1! NONE 
3 4 0303 1! 
‘ 4 bane ! IMPLICIT OUTPUTS: 
tees tdi 
: 31 $308 1 | ROUTINE VALUE: 
: Fe 8308 : COMPLETION CODES: 
: 318 bai 1/ NMA$_SUCCESS A warm cuddly feeling 
: 318 bai6 : NMAS$_SUCCFLDRPL A warm feeling with a replaced field 
; 319 0314 SIDE EFFECTS: 
: 320 0316 1! NONE 
3 $5: 0317 1°! 
: 358 St ae 
; 324 0520 BEGIN 
i 382 $352 > 
; 355 $355 RTN_DSC : REF BLOCK (8, 1] 
; 328 0324 FIELD (DSC_FLDS) 
BB 3 
; 331 03 $ LOCAL 
3 Ma 0328 SUCCOD ! Hold the success code for return 
8 ; 83 9 END b, ' End of a field to replace 
3 0 ' Address of field to replace 
3; 335 83 1 S17Zé ' Size of replaced field 
; 36 0 ; END _6UF i End of buffer address 
: 38 5 
: 340 ; ADR = 0; ! Start at beginning of buffer 
: 1 33 SUCCOD = NMAS$_SUCCESS; ! Assume success with no replace 
; § 9 WHILE ' Find all the fields to replace 
: : ? NMASSEARCHFLD (.RTN_DSC, .FIELD_CODE, SIZE, ADR) 
; 346 42 BEGIN | 


as? 


NMAFIELDS 
v04- 
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; Routine Size: 73 bytes, Routine Base: S$CODE$ + 00C2 


; 7 43 END_ FLD = ADR + .SIZE; End of replaced field : 
; 348 44 ADR™= .ADR = 4; Address of onret and data spartren ; 
: 349 45 size = a +°4:; Total size includ e control ; 
; 350 46 END_BUF = .RTN_DSC fDSC_ADR] End of data record : 
; 51 4 RTN_DSC CDSC-S12); : 
3 26 rh: CHSMOVE ( gEND BuF - .END_FLD, ! Copy data over field ; 
: 333 49 D_FLD, .ADR ; 
s 355 0 2¢ RIW_DSC bs $12] _= , Adjust size of record ; 
; 28 25 DSC COSC_SIZ] - : ; 
; 2 succop = hans. _SUCCFLDRPL i Set the success code i 
3 38 5 3 3 
; 360 0556 
s 36) 5 RETURN .SUCCOD ! Return the code ; 
; 36 bge8 3 
; 36 0359 1 END: ; 
O3FC 00000 -ENTRY WNMASDELETEFLD, Save R2,R3,R4,R5,R6,R7,R8,R9 = 0287 : 

SE 04 C2 Bonog UBL2 #4, SP 3 : 

7E 04 0000 CLRL AD : 0336 ; 

59 01 DO 00007 MOVL #1, SUCCOD 3; 0337 3 

57 04 AC DO QOO0A MOVL RTN DSC, R7 ; 0340 3 

5E DD OOOOE 1$: PUSHL SP ~ § 3 

08 AE OF bop; PUSHAB SIZE 3 ; 

08 ac DD 0001 PUSHL parte .cone 3 : 

57 OD Beoig PUSHL R ; 3 

FF21 CF F 4 | 001 CALLS #4, NMASSEARCHFLD F 3 

25 0 £9 0001D BLBC : 3 

58 6E 04 AE C1 00020 ADDL3 SIZE, ADR, END_FLD > 0343 ; 

6E 04 C3 0025 SUBL a, Ape > 0344 : 

04 AE 04 ¢ 0028 ADDL IZE ; 0345 3 

56 67 3C 0002C MOVZWL {Rey END su 3 0347 : 

sé 04 A? c6 O02F ADDL2 4(R7 is : : 

50 56 Bee 36 3 SUBL en ND. FLD wy BUF. RO ; 0348 F 

00 BE 68 50 2 6 037 MOVC “(E ofidd. @ADR > 0349 ; 

67 04 AE A2 000 SUBW site : 035¢ ; 

59 09 00 0004 MOVL gutteo > 035 : 

50 SF 00 00048 28 mOVL -SUCCOD, RO : 9357 : 

Be 00048 RET : 0389 
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rived tt NMALOEL TEP ED Delete a. a Field From a Record | 00-1882 99: 6; 83 NHL SREINMAFTELD 3544 ° 
: 365 'End of module 

i 38 Bee) 8 EtBoon : 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: SCODES 267 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

‘Gin iin oe BE ee are Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SHRLIBINMALIBRY. “432i 1 887 4 0 47 00:00.2 

: ~$255$0UA28:CSYSLIBISTARLET.L32 9776 0 0 581 00:01.7 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NMAF IELDS/OBJ=OBJ$:NMAFIELDS MSRC$:NMAF IELDS/UPDATE=(ENH$:NMAF IELDS) 

: Size: 267 goge : 0 data bytes 

; Run Time 68:98 

3 Flaseed” Tine: 0:2 

3 Lines/CPU Min 252 

3 Lexenes/CPU-in: 154 


Memor YoU sed: 
Compilation Complete 
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